home *** CD-ROM | disk | FTP | other *** search
/ The American Nation / Resource Pro - The American Nation.iso / pc / data1.cab / Database_Files / ResourcePro.exe / launchpd.dxr / 00033_CTB Launch.ls < prev    next >
Encoding:
Text File  |  2000-11-28  |  1.0 KB  |  35 lines
  1. on mouseUp
  2.   if the platform contains "windows" then
  3.     set ctbPath to the pathName
  4.     set tmpString to EMPTY
  5.     set currentCharNum to 1
  6.     repeat while char currentCharNum of ctbPath <> ":"
  7.       set tmp to char currentCharNum of ctbPath
  8.       set tmpString to tmpString & tmp
  9.       set currentCharNum to currentCharNum + 1
  10.     end repeat
  11.     set HardDrive to tmpString & ":\"
  12.     set ctbPath to HardDrive & "ExamView\"
  13.     set ctb to ctbPath & "evpro.exe"
  14.     set err to OpenApp(ctb, "AB")
  15.   else
  16.     set err to "none"
  17.     set ctbPath to the pathName
  18.     set tmpString to EMPTY
  19.     set currentCharNum to 1
  20.     repeat while char currentCharNum of ctbPath <> ":"
  21.       set tmp to char currentCharNum of ctbPath
  22.       set tmpString to tmpString & tmp
  23.       set currentCharNum to currentCharNum + 1
  24.     end repeat
  25.     set HardDrive to tmpString & ":"
  26.     set ctbPath to HardDrive & "ExamView Pro:"
  27.     set ctb to ctbPath & "ExamView Pro"
  28.     open(ctb)
  29.   end if
  30.   if err <> "none" then
  31.     alert(err)
  32.     go("main")
  33.   end if
  34. end
  35.